18253 Y5t$"mh.BI.“:GU5UB16818:RETURH 18254 Y5$="HH.BJ.":GDSUEi6818£RETURN 18255 T5$="HC.BH."!GD5UB16818:RETURN 18388 Y15¤"MAX.HDD.“:REh$**#**$I***** 7 18381 IFY>188THENGUTU14958 18382 X(3)=Y:RETURN 18358 Y1$="GEN.RF-SETTING"!REHXl¥X*tX 8 18351 IFY<.4DRY>1888THENGUTD14‘18 18352 Y5$¤"hG"+HID$("R$iY!.2.H)+"."IGUSUB16818IRETURN 18488 Y1$*"BHN.RF-LEUEL"}REMl#*l*K¥*K 9 18181 IFY<.832DRY>1888888THEHG8TD14958 18482 IFY>1888THENY=Y/18881Y3%="RJ"!BDTD18484 18483 Y3$="AI" 18484 Y5¢wY3$+HID$(STR$CY).2.S}+"."IGDSUE16818:RETURN 18458 Y1$="GEH.RF DN/DFF":REH*XXI¥*IX18 18451 IFY=1THENY5$="E@."!BU8UB16818:RETURN 18452 IFY=8THENY5$="D@."!BD5UB16818:RETURN 18453 GBTD14958 18588 Y1$¤"RF—LEVEL-UARIATI8H"IREH***11 18581 IFY=lTHENY5%="EK."IGDSUE16818IRETURN 18582 IFY=-1THENY5$="DK."!E88UB16818!RETURN 18583 GBTD14958 18558 Y1$=“GEH.MDD.INTERN“:REH*#$I**I12 18551 IFX(7)<>3THEN1855# 18552 IFY>12THEN14958 18553 G8T818555 18554 IFY}188THEN14958 18555 T5$¤"AH"+HID$(STR$(Y>.2.B)+"."tGUSUB16818IRETURN 18688 Y1$¤"EEN.HGU.EXTERN"IREN*#*#**#13 ` 18681 Y5$=“EH.":G8SUB16818 18682 IFX(7)<>2TMEN18685 18683 IFY>12THEN14958 18684 8UTU18686 18685 IFY>188THEN14958 18686 Y5$¤"hZ“+HID$<STR$<Y>.2.B)+"."IGUSUB16818£RETURN 18658 Y1$=“HUD.INT.UN/DFF"IREH*X*XXIX14 18651 IFY¤1THENY5§="AM.“:GU5UB16818:RETURN 18652 IFY=8THENY5$="EH.“IGDSUE16818lRETURN 18653 GUTO14958 18788 Y1$¤"~~—— -—·-···- ~·~»·—~":REH#¥*#**#15 18781 RETURN 18758 Y1$¤"GEN.RF~5ETTING":REH**I***#16 18751 IFY=8THEN18753 18752 IFY{8.8898RY}25THENGDTD14?58 18753 Y5$="éD"+HID$<STR$(Y}.2.S}+".“IGDGUB16818lRETURN 18888 Y1$=“GEN.RF-LEUEL"IREHX**X*#KtI17 18981 IFY<80RY>4995THENGGTD14958 18882 Y5$="AQ“+HID$<STR$(Y).2.8>+“.":GUSUH16818:RETURN 18858 Y1$="DCITT GN/UFF"IREH##$*#****1B 18851 IFY=lTHENY5$="EC."IGDSUH16818IRETURN 18852 IFY=8THENY5$="DC."!GDSUB16818ZRETURN 18953 GUTU14?58 18988 Y1$="TGNE NUDE DEFIN."IREH**$**19 18982 IFY$=“Z"THEHT5$=“ED8"1GD5UE16818!RETURN 18984 IFY<¤1.·;;··Tn-u;r·4~r5s·=·"E:U*i*·':GlLrSlJH1e5B1B RETURN 18986 GDT814958 18988 RETURN 18958 wr1sa¤:».;¢;|mR.1_1N£5·':F<En¤r¤•¢¤k¤k=!=>¤==t<¤t>•=»k2B 18951 IFY1>9URY1<1THHNGUTU14958 18952 Y5$="EF“+RIGHT$(STR$(Y1).1)+RIGHT$(5TR$(Y>.1)+"."IGUSUB168181RETUE 11888 Y15¤“ECD·LINES":REH*****$$*$#X$21 11881 IFLEN(Y$)<1DRLEN(Y%)>4THENGDTD14958 11882 IFLEFT$(T$.1)=“ "THENY§¤RIGHT$(Y$.LEHCY!)-1PIBDTU11882 11883 Y5$¤"EA“+RIGHT$(“88“+Y$.3)+".“:GDSUBi6818IRETURN 11858 Y1$="CHANNEL·8ELECT":REM*#****$22 11851 X(1)=X(1)+Xt3)*(Y~X(2)J/1888!X(2>=YiX(6}=X(1}-X<4)